clear all;
clc;

load mnist01;

k = 30;
l = 1000;

Y = rrsvm(data',label(1:l)',k);

calacc(Y,label(l+1:size(label,2))')